home *** CD-ROM | disk | FTP | other *** search
/ Ham Radio 2000 #2 / Ham Radio 2000 - Volume 2.iso / HAMV2 / MISC / HCAL-27 / HAMSTAIR.BAS (.txt) < prev    next >
Encoding:
GW-BASIC  |  1995-11-10  |  1.5 KB  |  55 lines
  1. 10  'HAMSTAIR - 10 APR 94 rev. 10 NOV 95
  2. 20  CLS:KEY OFF
  3. 30  IF EX$=""THEN EX$="EXIT"
  4. 40  COMMON EX$
  5. 50  COLOR 7,0,1
  6. 60  T$=" HAM SHACK STAIRS "
  7. 70  COLOR 15,2:PRINT T$;TAB(57);"by George Murphy VE3ERP ";
  8. 80  COLOR 1,0:PRINT STRING$(80,223);
  9. 90  COLOR 7,0
  10. 100  T=7
  11. 110  PRINT
  12. 120  PRINT TAB(T);
  13. 130  PRINT "Over the years I have visited many Ham Shacks, most of which were"
  14. 140  PRINT TAB(T);
  15. 150  PRINT "located either in basements or attics, and I have done more than my"
  16. 160  PRINT TAB(T);
  17. 170  PRINT "share of rock climbing to reach an attic and spelunking in order to"
  18. 180  PRINT TAB(T);
  19. 190  PRINT "lower my tired old body into a basement."
  20. 200  PRINT
  21. 210  PRINT TAB(T);
  22. 220  PRINT "For some reason builders seem to add stairs to attics and basements"
  23. 230  PRINT TAB(T);
  24. 240  PRINT "as an afterthought with little consideration for the comfort and"
  25. 250  PRINT TAB(T);
  26. 260  PRINT "ease of those of us who will be ascending and descending the fruits"
  27. 270  PRINT TAB(T);
  28. 280  PRINT "of their labour."
  29. 290  PRINT
  30. 300  PRINT TAB(T);
  31. 310  PRINT "This program deals with ergonomic design of stairways and ladders"
  32. 320  PRINT TAB(T);
  33. 330  PRINT "for those of you who may be thinking of building or renovating an"
  34. 340  PRINT TAB(T);
  35. 350  PRINT "attic or basement ham shack. The subject may appear to be a bit out"
  36. 360  PRINT TAB(T);
  37. 370  PRINT "of place in a collection of electronic programs, but I included it"
  38. 380  PRINT TAB(T);
  39. 390  PRINT "for myself on the off chance that some day you may invite me to"
  40. 400  PRINT TAB(T);
  41. 410  PRINT "visit your shack!"
  42. 420  PRINT
  43. 430  PRINT TAB(T);
  44. 440  PRINT "73,"
  45. 450  PRINT TAB(T);
  46. 460  PRINT "VE3ERP"
  47. 470  COLOR 0,7:LOCATE CSRLIN,22
  48. 480  PRINT " Press 1 to continue or 0 to EXIT....."
  49. 490  COLOR 7,0
  50. 500  Z$=INKEY$:IF Z$=""THEN 500
  51. 510  IF Z$="0"THEN CLS:RUN EX$
  52. 520  IF Z$="1"THEN CLS:CHAIN "stairs"
  53. 530  GOTO 500
  54. 540  END
  55.